Trailing-Edge
-
PDP-10 Archives
-
6.1_emacs_manuals_1er
-
emacs/fortran.:ej
There are no other files named fortran.:ej in the archive.
P W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
I $
c 3 B > ; i
K | >
g * e E t W K k 1 Q \ 7 $ 6 2 3 = 4 S U g ^ | % t 0 B F Q f \ ~ 4 g $ A . < 5 7 & Fix Fortran Label Field Expand for Fortran Fortran Mode& ^R Eliminate Fortran Comment Field! ^R Fill Tab Field With Spaces% ^R Fortran Continuation Line Next/ ^R Fortran merge continuation with previous- ^R Fortran Newline and Maybe Continuation ^R Fortran Read Hollerith ^R Indent for Fortran$ ^R Move to Fortran Comment Field) ^R Move to Next Fortran Comment Field- ^R Move to Previous Fortran Comment Field ^R Show Columns ~DIRECTORY~# ~DOC~ & Fix Fortran Label Field ~DOC~ Expand for Fortran ~DOC~ Fortran Mode, ~DOC~ ^R Eliminate Fortran Comment Field' ~DOC~ ^R Fill Tab Field With Spaces+ ~DOC~ ^R Fortran Continuation Line Next5 ~DOC~ ^R Fortran merge continuation with previous3 ~DOC~ ^R Fortran Newline and Maybe Continuation# ~DOC~ ^R Fortran Read Hollerith ~DOC~ ^R Indent for Fortran* ~DOC~ ^R Move to Fortran Comment Field/ ~DOC~ ^R Move to Next Fortran Comment Field3 ~DOC~ ^R Move to Previous Fortran Comment Field ~DOC~ ^R Show Columns ~DOC~ ~Filename~ ~Filename~
~INVERT~, .[0
fsshpos[1
q1/8+1*8-q1<i >
q0,. b [0[1[2
:i0 6 72
:i1.....|-----------------------------------Program Text------------------|...
:i2.....| <- Column 6 Column 72 -> |...
fsOSTeco"e
fsrgetty"n
fs^RVPos-1"g
:i*UUU
0
1FSMPDisplay'
"#
:i*
1
0FSMPDisplay''
"#
:i*
1
0FSMPDisplay''
"#
fsecholines-3"l:i*C 2
'"#:i*C 0
1
'fsechodisplay
0@t:@t
0fsechoactive'
0 A [0[1
J<:S;rd1a-32f(wd)<i >>
J<.-z;
1f<!COMS!
.u1:lq1+7-."glf;COMS'"#0l'
<.-(q1+6);
1a-9"e0;'c>
.u1
:lq1+66-."lq1+66,.k'
l>>
J<.-z;:l
M(M.M^R Delete Horizontal Space)
l>J
Q .[0FF"e0l'
"#l'
(-1,1a- C)*(-1,1a- c)*(-1,1a- *)"e
:K.-1,q0 '
"#q0j0 'L .-z"eiC13i10i2r.-1,.+2 '
l.-z"efsshpos"n13i10iiC13i10i2r.-3,.+2 '
"#iC13i10i2r.-1,.+1 ''
"#
(-1,1a- C)*(-1,1a- c)*(-1,1a- *)"niC13i10i2r.-1,.+2 '
"#1M(M.M^R Move to Fortran Comment Field)'' 0l.-b"eiC13i10i2r.-1,.+2 '
-l(-1,1a- C)*(-1,1a- c)*(-1,1a- *)"nliC13i10i2r.-1,.+2 '
"#1M(M.M^R Move to Fortran Comment Field)'. [9
0l(-1,1a- C)*(-1,1a- c)*(-1,1a- *)"e
q9-1u9'
q9:"gc0 '
.[0
q9<-l.-q0"e13i10i2r'
(-1,1a- C)*(-1,1a- c)*(-1,1a- *)"n
-1,1a-13"eiCr'
"#liC13i10i3r''>
c.-1,q0 7 .[0m(m.m^R CRLF)m(m.m^R Indent for Fortran)wq0,. / .[0@m(m.m^R Delete Horizontal Space)q0-."g.[0'
(-1,1a-13)*(-1,1a+1)"nm(m.m^R Fortran Continuation Line Next)'
"#m(m.m^R CRLF)wm(m.m& Fix Fortran Label Field)'
q0,. M 0l.-b"e0 '.+7u0
-1m(m.m^R Indent for Fortran)
-2d
z-q0"g.,q0 '"#.,z 'v FF-2"e0 '
z[9
.[0
:l.-q0u0
0l
.[2
FM(M.M& Fix Fortran Label Field)
.[1
:l.-q0-q1"lq1j'"#.-q0j'
q2,q1 < m.m^R Delete Horizontal Space[9
0fo..qFortran Indent With Tabs[8
45.fo..qFortran Continuation Character[7
m9
FF"n
F"loUndent'
"#oContin''
-1,1a-q7"ed'
1[0<-1,1a-71."g0;'
-1,1a-60."l0;'
c%0>
m9
q8"e<q0-7;i %0>'
"#i '
!Contin!
i
-1,1a-q7"nq7i'
!Undent!
m9
-1,1a-q7"ed'
K 1,m(m.m& Read Line)Hollerith: [1
fq1:"g0 '
12.[..E
.(fq1\iHg1),. 1 M(M.M& Init Buffer Locals)
M.M^R Fortran Read HollerithM.Q"
M.M^R Indent for FortranM.Q I
M.M^R Fill Tab Field with SpacesM.Q..I
Q(Q.M.Q)M.Q.
M.M^R Fortran Continuation Line NextM.Q..J
M.M^R Fortran Continuation Line NextM.Q...J
M.M^R Fortran Merge Continuation with PreviousM.Q..^
M.M^R Fortran Newline and Maybe ContinuationM.Q J
M.M^R Move to Fortran comment fieldM.Q..;
M.M^R Move to Next Fortran comment fieldM.Q..N
M.M^R Move to Previous Fortran comment fieldM.Q..P
M.M^R Eliminate Fortran commentM.Q...;
M.M^R Show ColumnsM.Q..=
1,72M.LComment Column
1,(:I*;)M.LComment Start
Q.0,1M(M.M& Set Mode Line)Fortran
FORTRAN' Winning macros for editting Fortran$ ^R Look like Tab, but use spaces ^R Show Current Line with column numbers above it
On ITS, the display is drawn in the editting window.
On Twenex, the display is shown in the echo area.| S Expand RLBs compressed fortran format to be readable
For use locally on MC only. ^S is a space efficiency hack. This routine will
search for Control-S, delete it and next char, using next chars ascii val
minus 32 as number of spaces to insert.O ^R If on comment line, delete its text.
Comment lines have a C in column 11 ^R Move to next comment field
Moves to next Comment field. If there is no other comment field before
the end of buffer or the next statement, creates one on the next line.= ^R Move to prev comment field
Moves to previous Comment field. If there is no other comment field between
point and head of buffer or previous statement, creates one on the next line. ^R Move to a Fortran comment line
If on a comment line, move to the head of it. If not on one, use preceding
line if it is one, else create one. + ^R Get new line, make it a continuationb ^R Newline plus tab.
If at end of line, tab for a new statement. Else tab for a continuation.B ^R Kill CRLF and indentation
Appends current line to previousc ^R Indent correctly for Fortran
With no arg, indent to column 7, removing contin char if found
With positive arg, indent to column 6, putting a contin char there
With negative arg, remove indentation and contin char
Q$Fortran Continuation Character$ may be set to a fixnum corresponding
to the ascii value of continuation character to be used. (Default = %)
Q$Fortran Indent With Tabs$ uses a tab to end out the label field instead
of spaces (Default = Spaces)C S Arrange label field correctly
Expects to be run at start of line and will format the next 6 chars if
on line as necessary... With an arg, this is a continuation line,
without it is not.4 Read a hollerith string to insert from echo areaR S Set up for Fortran editting
Fortran Mode defines the following
" prompts for a string in the echo area, then inserts in hollerith form
Tab does Indent for Fortran (arg>1 = continuation, arg<=0 remove indent)
M-I does Like normal M-I but fills with spaces
Linefeed makes a CRLF and indents correctly
M-^ removes indentation and leading CRLF and attaches to previous line
C-M-J M-J makes a CRLF and indents for a continuation
Rubout deletes backwards changing tabs to spaces
M-; moves to head of comment line, making one if needed
M-N moves to next fortran comment line, making one if needed
M-P moves to previous fortran comment line, making one if needed
C-M-; eliminates the comment text on a comment line
M-= displays a helpful column chart showing where columns 6 and 72 are6 ^R Fill Tab Field With Spaces
^R Show Columns
Expand for Fortran
^R Eliminate Fortran Comment Field
^R Move to Next Fortran Comment Field
^R Move to Previous Fortran Comment Field
^R Move to Fortran Comment Field
^R Fortran Continuation Line Next
^R Fortran Newline and Maybe Continuation
^R Fortran merge continuation with previous
^R Indent for Fortran
& Fix Fortran Label Field
^R Fortran Read Hollerith
Fortran Mode
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2